home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
t_os
/
nem
/
nem.exe
/
RMESF.PLP
< prev
next >
Wrap
Text File
|
1991-08-17
|
2KB
|
83 lines
/* auto pilot program 「NEM 2.06」 1991.4.11 By GOOSE(MAF00070) */
/* %Rmesf { */
/* [FORUM,LOGPATH,DATE] */
/* 会議室の未読をフォーラム別にダウンする。
** ログの格納先は LOGPATH\フォーラム名.mdd(mdd:月日) */
var FORUMS[128];var ONEFORUM[8];
%oneforum { [forum] /* 一つのフォーラムにたいする処理 */
type({GO }|forum|{\n});
loop({
wait(ABORTTIME,{Abort},
{\n>},{im({No})},
{\nFORUM>},{im({No})},
{\n続き (改行で表示},{type({\n});im({Yes})},
{\nmore>},{type({\n});im({Yes})})
});
type({SEND OFF\n});
loop({
wait(ABORTTIME,{Abort},
{\n>},{im({No})},
{\nFORUM>},{im({No})},
{\n続き (改行で表示},{type({\n});im({Yes})},
{\nmore>},{type({\n});im({Yes})})
});
type({MES\n});
loop({
wait(ABORTTIME,{Abort},
{番号 (改行で次頁)\n>},{type({\n});im({Yes})},
{\nmore>},{type({\n});im({Yes})},
{\n>},{im({No})}
)
});
%logdir LOGPATH|{\}|forum|FTYPE;
write(logdir,DAYTIME);
type({MREAD\n});
receive(logdir);
loop({
wait({600},{Abort},
{\n◆現在未読の発言はありません◆},
{wait({3},{im({Yes})},{\n>},{stoprec;im({No})})},
{\n>},{
wait({1},);
case(@tail(@laststr,{\n})={>},
{Yes},
{case(@tail(@laststr,{\n>\n})={◆次頁はありません◆}|@xc({0d})|@xc({0a})|{>},
{Yes},{stoprec;wait(ABORTTIME,{Abort},{\n>},{im({No})})},
{No},{
type({\n});
wait({3},{im({Yes})},
{\n◆次頁はありませ},
{stoprec;wait(ABORTTIME,{Abort},{\n>},{im({No})})})
})},
{No},{im({Yes})})
})
})
};
/* 全フォーラムに対する処理 */
type({TIME\n});
wait(ABORTTIME,{Abort},{\n ご利用時間 },);
%DAYTIME @tail(@body(@laststr,,{\n ご利用時間 }),{\n })|{\n};
wait(ABORTTIME,{Abort},
{\n>},,{\nMAIL>},,{\nHP>},,{\nFORUM>},,{\nBBS>},,{\nCCS(N)>},,{\nLIB>},);
%DAYTIME CCSLINE|DAYTIME;
%FTYPE @case(LOGADD={Yes},
{Yes},{im({.LOG})},{No},{im({.}|DATE)});
FORUMS:=FORUM;
loop({
ONEFORUM:=@head(FORUMS,{,});
case(ONEFORUM={No},
{Yes},{im({No})},
{No},{FORUMS:=@body(FORUMS,{,});
oneforum(ONEFORUM);
im({Yes})})
});
type({SEND ON\n});
loop({wait(ABORTTIME,{Abort},
{\n>},{im({No})},
{\nFORUM>},{im({No})},
{\n続き (改行で表示},{type({\n});im({Yes})},
{\nmore>},{type({\n});im({Yes})})
});
/* }; */